home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Leonardo the Inventor
/
Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso
/
LEOWINMV
/
DATABASE.DIR
/
00365_Script_verifySearchResults
< prev
next >
Wrap
Text File
|
1996-03-28
|
985b
|
32 lines
-- ---------------------------------------------------------------
-- Handler verifySearchResults calls verifyIndex for all Index-es.
on verifySearchResults firstCast, lastCast
repeat with C = firstCast to lastCast
put "--------------------------"
put "Verifying Index Field " & C
verifyindex field C
end repeat
end
-- ---------------------------------------------------------------
-- Handler verifyIndex checks that each result in the
-- search index is actually the exact name of an article in the
-- browser.
on verifyIndex indexText
put field "BrowserTopics" into browserTopics
set numLines = the number of lines of indexText
repeat with L = 1 to numLines
set theLine = line L of indexText
if theLine starts "*" then
set header = theLine
next repeat
end if
if NOT (BinSearchFirstItemInLine (browserTopics, theLine, ":")) then
put header
put theLine
end if
end repeat
end